Application.ExecuteCommand("Filter")
SelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Corners = true
SelectionFilterDlg.SelectionObjectsDlg.TraceCorners = true
SelectionFilterDlg.Ok.Click()

Application.ExecuteCommand("Global Options")
OptionsDlg.ActiveTab = "Design"
OptionsDlg.DesignDlg.Ratio = "10"
OptionsDlg.DesignDlg.Angle = "180"
OptionsDlg.Apply.Click()
OptionsDlg.Ok.Click()